# = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 #   ?   [ V X   A c e ]   G m o r k ' s   W e t t e r e f f e k t e 
 
 # = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 #   ~   A u t o r :   G m o r k 
 
 #   ~   Z u l e t z t   a k t u a l i s i e r t :   1 5 . 1 2 . 2 0 1 3 
 
 #   ~   V e r s i o n :   1 . 0 
 
 # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # 
 
 # = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 # 
 
 #   D i e s e s   S k r i p t   e r m  g l i c h t   d i r   3   n e u e   W e t t e r - E f f e k t e   z u   n u t z e n .   
 
 #   D i e s e   m  s s e n   p e r   E v e n t - K o m m a n d o   S c r i p t   a u f g e r u f e n   w e r d e n . 
 
 #   D i e   W e t t e r e f f e k t e   k  n n e n    b e r   d e n   E v e n t b e f e h l   w i e d e r   g e s t o p p t   w e r d e n . 
 
 # 
 
 #   A n m e r k u n g : 
 
 #     a   -   z u   e r s e t z e n   d u r c h   d i e   S t  r k e   d e s   W e t t e r e f f e k t s .   ( Z a h l   v o n   1 - 1 0 ) 
 
 #     b   -   z u   e r s e t z e n   d u r c h   d i e   D a u e r   d e r   Z e i t s p a n n e   i n   d e r   d e r   W e t t e r e f f e k t   
 
 #             s t  r k e r   w e r d e n d   e i n s e t z t . 
 
 #       ( W e n n   m a n   0   e i n t r  g t ,   i s t   d e r   E f f e k t   z B   s o f o r t   m i t   v o l l e r   S t  r k e   d a . ) 
 
 # 
 
 # 
 
 #   S t a r k e r   R e g e n : 
 
 #           s c r e e n   =   $ g a m e _ m a p . s c r e e n 
 
 #           s c r e e n . c h a n g e _ w e a t h e r ( : r a i n 2 ,   a ,   b ) 
 
 # 
 
 #   S c h n e e s t u r m :   ( ) 
 
 #           s c r e e n   =   $ g a m e _ m a p . s c r e e n 
 
 #           s c r e e n . c h a n g e _ w e a t h e r ( : s n o w s t o r m ,   a ,   b ) 
 
 # 
 
 #   N e b e l : 
 
 #           s c r e e n   =   $ g a m e _ m a p . s c r e e n 
 
 #           s c r e e n . c h a n g e _ w e a t h e r ( : f o g ,   a ,   b ) 
 
 # 
 
 #   Z u m   B e n u t z e n   d e s   N e b e l s   m u s s   d i e   G r a f i k   ' F o g 1 '   i m   O r d n e r   B i l d e r   g e s p e i c h e r t   
 
 #   s e i n .   ( D i e   G r   e   d e s   B i l d e s   s o l l t e   1 2 8 x 1 2 8   s e i n . ) 
 
 # 
 
 # 
 
 #   A B   H I E R   N I C H T S   M E H R   V E R  N D E R N 
 
 # = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 #   * *   S p r i t e s e t _ W e a t h e r 
 
 # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 #     A   c l a s s   f o r   w e a t h e r   e f f e c t s   ( r a i n ,   s t o r m ,   a n d   s n o w ) .   I t   i s   u s e d   w i t h i n   t h e 
 
 #   S p r i t e s e t _ M a p   c l a s s . 
 
 # = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 
 
 c l a s s   S p r i t e s e t _ W e a t h e r 
 
     # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     #   *   O b j e c t   I n i t i a l i z a t i o n 
 
     # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     d e f   i n i t i a l i z e ( v i e w p o r t   =   n i l ) 
 
         @ v i e w p o r t   =   v i e w p o r t 
 
         @ v i e w p o r t 2   =   V i e w p o r t . n e w 
 
         @ f o g _ s p r i t e s   =   [ ] 
 
         i n i t _ m e m b e r s 
 
         s e t _ f o g 1 
 
         c r e a t e _ r a i n _ b i t m a p 
 
         c r e a t e _ r a i n 2 _ b i t m a p 
 
         c r e a t e _ s n o w 2 _ b i t m a p 
 
         c r e a t e _ s t o r m _ b i t m a p 
 
         c r e a t e _ s n o w _ b i t m a p 
 
     e n d 
 
     # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     #   *   P a r t i c l e   C o l o r   3 
 
     # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     d e f   p a r t i c l e _ c o l o r 3 
 
         C o l o r . n e w ( 1 7 0 ,   1 8 2 ,   1 9 1 ,   1 4 0 ) 
 
     e n d 
 
     # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     #   *   P a r t i c l e   C o l o r   4 
 
     # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     d e f   p a r t i c l e _ c o l o r 4 
 
         C o l o r . n e w ( 2 5 5 ,   2 5 5 ,   2 5 5 ,   1 8 0 ) 
 
     e n d 
 
     # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     #   *   P a r t i c l e   C o l o r   5 
 
     # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     d e f   p a r t i c l e _ c o l o r 5 
 
         C o l o r . n e w ( 1 8 0 ,   1 8 0 ,   1 8 0 ,   1 8 0 ) 
 
     e n d 
 
     # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     #   *   C r e a t e   [ R a i n 2 ]   W e a t h e r   B i t m a p 
 
     # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     d e f   c r e a t e _ r a i n 2 _ b i t m a p 
 
         @ r a i n 2 _ b i t m a p   =   B i t m a p . n e w ( 6 0 0 ,   6 0 0 ) 
 
         1 2 0 0 . t i m e s   { | i |   @ r a i n 2 _ b i t m a p . f i l l _ r e c t ( r a n d ( 6 0 0 ) ,   r a n d ( 6 0 0 ) ,   1 ,   1 0 ,   p a r t i c l e _ c o l o r 3 )   } 
 
         1 2 0 0 . t i m e s   { | i |   @ r a i n 2 _ b i t m a p . f i l l _ r e c t ( r a n d ( 6 0 0 ) ,   r a n d ( 6 0 0 ) ,   1 ,   7 ,   p a r t i c l e _ c o l o r 5 )   } 
 
         4 0 0 . t i m e s   { | i |   @ r a i n 2 _ b i t m a p . f i l l _ r e c t ( r a n d ( 6 0 0 ) ,   r a n d ( 6 0 0 ) ,   1 ,   5 ,   p a r t i c l e _ c o l o r 4 )   } 
 
         8 0 . t i m e s   { | i |   @ r a i n 2 _ b i t m a p . f i l l _ r e c t ( r a n d ( 6 0 0 ) ,   r a n d ( 6 0 0 ) ,   1 ,   2 0 ,   p a r t i c l e _ c o l o r 4 )   } 
 
     e n d 
 
     # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     #   *   C r e a t e   [ S n o w s t o r m ]   W e a t h e r   B i t m a p 
 
     # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     d e f   c r e a t e _ s n o w 2 _ b i t m a p 
 
         @ s n o w 2 _ b i t m a p   =   B i t m a p . n e w ( 6 0 0 ,   6 0 0 ) 
 
         2 0 0 . t i m e s   { | i |   
 
         x   =   r a n d ( 6 0 0 ) 
 
         y   =   r a n d ( 6 0 0 ) + 1 
 
         @ s n o w 2 _ b i t m a p . f i l l _ r e c t ( x ,   y ,   6 ,   4 ,   p a r t i c l e _ c o l o r 2 )   
 
         @ s n o w 2 _ b i t m a p . f i l l _ r e c t ( x + 1 ,   y - 1 ,   4 ,   6 ,   p a r t i c l e _ c o l o r 2 ) 
 
         @ s n o w 2 _ b i t m a p . f i l l _ r e c t ( x + 1 ,   y + 1 ,   4 ,   2 ,   p a r t i c l e _ c o l o r 1 ) 
 
         @ s n o w 2 _ b i t m a p . f i l l _ r e c t ( x + 2 ,   y ,   2 ,   4 ,   p a r t i c l e _ c o l o r 1 ) } 
 
         
 
         1 0 0 . t i m e s   { | i |   
 
         x   =   r a n d ( 6 0 0 ) 
 
         y   =   r a n d ( 6 0 0 ) + 1 
 
         @ s n o w 2 _ b i t m a p . f i l l _ r e c t ( x ,   y ,   1 2 ,   8 ,   p a r t i c l e _ c o l o r 2 )   
 
         @ s n o w 2 _ b i t m a p . f i l l _ r e c t ( x + 1 ,   y - 1 ,   8 ,   1 2 ,   p a r t i c l e _ c o l o r 2 ) 
 
         @ s n o w 2 _ b i t m a p . f i l l _ r e c t ( x + 1 ,   y + 1 ,   8 ,   4 ,   p a r t i c l e _ c o l o r 1 ) 
 
         @ s n o w 2 _ b i t m a p . f i l l _ r e c t ( x + 2 ,   y ,   4 ,   8 ,   p a r t i c l e _ c o l o r 1 ) } 
 
 
 
         1 . t i m e s   { | i |   
 
         x   =   r a n d ( 6 0 0 ) 
 
         y   =   r a n d ( 6 0 0 ) + 1 
 
         @ s n o w 2 _ b i t m a p . f i l l _ r e c t ( x ,   y ,   2 4 ,   1 6 ,   p a r t i c l e _ c o l o r 2 )   
 
         @ s n o w 2 _ b i t m a p . f i l l _ r e c t ( x + 1 ,   y - 1 ,   1 6 ,   2 4 ,   p a r t i c l e _ c o l o r 2 ) 
 
         @ s n o w 2 _ b i t m a p . f i l l _ r e c t ( x + 1 ,   y + 1 ,   1 6 ,   8 ,   p a r t i c l e _ c o l o r 1 ) 
 
         @ s n o w 2 _ b i t m a p . f i l l _ r e c t ( x + 2 ,   y ,   8 ,   1 6 ,   p a r t i c l e _ c o l o r 1 ) } 
 
     e n d 
 
     # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     #   *   D r a w s   F o g 
 
     # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     d e f   s e t _ f o g 1 
 
         b i t m a p   =   C a c h e . p i c t u r e ( " F o g 1 " ) 
 
         r e c t   =   R e c t . n e w ( 0 , 0 , b i t m a p . w i d t h , b i t m a p . h e i g h t ) 
 
         b i t m a p . b l t ( 0 ,   0 ,   b i t m a p ,   r e c t ,   2 5 5 ) 
 
         x   =   - 2 2 4 
 
         y   =   - 2 2 4 
 
         i   =   0 
 
         w h i l e   ( x   <   G r a p h i c s . w i d t h - 1 2 9 )   o r   ( y   <   G r a p h i c s . h e i g h t - 1 2 9 ) 
 
             @ f o g _ s p r i t e s [ i ]   =   S p r i t e . n e w ( @ v i e w p o r t 2 ) 
 
             @ f o g _ s p r i t e s [ i ] . b i t m a p   =   b i t m a p 
 
             @ f o g _ s p r i t e s [ i ] . x   =   x 
 
             @ f o g _ s p r i t e s [ i ] . y   =   y 
 
             @ f o g _ s p r i t e s [ i ] . o p a c i t y   =   0 
 
             i f   x   > =   G r a p h i c s . w i d t h - 1 2 9 
 
                 x   =   - 2 2 4 
 
                 y   + =   b i t m a p . h e i g h t 
 
             e l s e 
 
                 x   + =   b i t m a p . w i d t h 
 
             e n d 
 
             i   + =   1 
 
         e n d 
 
         @ f o g _ s p r i t e s [ i ]   =   S p r i t e . n e w ( @ v i e w p o r t 2 ) 
 
         @ f o g _ s p r i t e s [ i ] . b i t m a p   =   b i t m a p 
 
         @ f o g _ s p r i t e s [ i ] . x   =   x 
 
         @ f o g _ s p r i t e s [ i ] . y   =   y 
 
         @ f o g _ s p r i t e s [ i ] . o p a c i t y   =   0 
 
     e n d 
 
     # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     #   *   F r a m e   U p d a t e 
 
     # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     d e f   u p d a t e 
 
         u p d a t e _ s c r e e n 
 
         @ s p r i t e s . e a c h   { | s p r i t e |   u p d a t e _ s p r i t e ( s p r i t e )   } 
 
         i f   @ t y p e   = =   : f o g 
 
             @ f o g _ s p r i t e s . e a c h   { | s p r i t e |   u p d a t e _ f o g s p r i t e ( s p r i t e )   } 
 
         e n d 
 
     e n d 
 
     # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     #   *   U p d a t e   F o g - S p r i t e s 
 
     # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     d e f   u p d a t e _ f o g s p r i t e ( s p r i t e ) 
 
         b i t m a p   =   C a c h e . p i c t u r e ( " F o g 1 " ) 
 
         s p r i t e . x   + =   1 
 
         s p r i t e . y   + =   2 
 
         s p r i t e . o p a c i t y   =   2 5 * @ p o w e r 
 
         i f   s p r i t e . x   > =   G r a p h i c s . w i d t h 
 
             s p r i t e . x   =   - 2 2 4 
 
         e n d 
 
         i f   s p r i t e . y   > =   G r a p h i c s . h e i g h t 
 
             s p r i t e . y   =   - 2 2 4 
 
         e n d 
 
     e n d 
 
     # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     #   *   U p d a t e   S p r i t e 
 
     # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     d e f   u p d a t e _ s p r i t e ( s p r i t e ) 
 
         s p r i t e . o x   =   @ o x 
 
         s p r i t e . o y   =   @ o y 
 
         c a s e   @ t y p e 
 
         w h e n   : r a i n 
 
             u p d a t e _ s p r i t e _ r a i n ( s p r i t e ) 
 
         w h e n   : s t o r m 
 
             u p d a t e _ s p r i t e _ s t o r m ( s p r i t e ) 
 
         w h e n   : s n o w s t o r m 
 
             u p d a t e _ s p r i t e _ s n o w 2 ( s p r i t e ) 
 
         w h e n   : r a i n 2 
 
             u p d a t e _ s p r i t e _ r a i n 2 ( s p r i t e ) 
 
         w h e n   : s n o w 
 
             u p d a t e _ s p r i t e _ s n o w ( s p r i t e ) 
 
         w h e n   : f o g 
 
             u p d a t e _ f o g s p r i t e ( s p r i t e ) 
 
         e n d 
 
         c r e a t e _ n e w _ p a r t i c l e ( s p r i t e )   i f   s p r i t e . o p a c i t y   <   6 4 
 
     e n d 
 
     # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     #   *   F r e e 
 
     # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     d e f   d i s p o s e 
 
         @ s p r i t e s . e a c h   { | s p r i t e |   s p r i t e . d i s p o s e   } 
 
         @ r a i n _ b i t m a p . d i s p o s e 
 
         @ r a i n 2 _ b i t m a p . d i s p o s e 
 
         @ s t o r m _ b i t m a p . d i s p o s e 
 
         @ s n o w _ b i t m a p . d i s p o s e 
 
         @ s n o w 2 _ b i t m a p . d i s p o s e 
 
         @ f o g _ s p r i t e s . e a c h   { | s p r i t e |   s p r i t e . d i s p o s e   } 
 
         b a c k g r o u n d _ s p r i t e . d i s p o s e 
 
     e n d 
 
     # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     #   *   U p d a t e   S p r i t e   [ R a i n 2 ] 
 
     # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     d e f   u p d a t e _ s p r i t e _ r a i n 2 ( s p r i t e ) 
 
         s p r i t e . b i t m a p   =   @ r a i n 2 _ b i t m a p 
 
         s p r i t e . x   + =   r a n d ( 2 ) - 1 
 
         s p r i t e . y   + =   6 
 
         s p r i t e . o p a c i t y   - =   2 
 
     e n d 
 
     # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     #   *   U p d a t e   S p r i t e   [ S n o w s t o r m ] 
 
     # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     d e f   u p d a t e _ s p r i t e _ s n o w 2 ( s p r i t e ) 
 
         s p r i t e . b i t m a p   =   @ s n o w 2 _ b i t m a p 
 
         s p r i t e . x   + =   r a n d ( 1 0 ) 
 
         s p r i t e . y   + =   3 
 
         s p r i t e . o p a c i t y   - =   6 
 
         @ v i e w p o r t 2 . c o l o r   =   C o l o r . n e w ( 2 2 0 ,   2 2 0 ,   2 2 0 ,   1 6 0 ) 
 
     e n d 
 
     # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     #   *   C r e a t e   N e w   P a r t i c l e 
 
     # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     d e f   c r e a t e _ n e w _ p a r t i c l e ( s p r i t e ) 
 
         i f   @ t y p e   = =   : s n o w s t o r m   
 
             s p r i t e . x   =   r a n d ( G r a p h i c s . w i d t h   +   1 0 0 )   -   4 0 0   +   @ o x 
 
             s p r i t e . y   =   r a n d ( G r a p h i c s . h e i g h t   +   2 0 0 )   -   5 0 0   +   @ o y 
 
             s p r i t e . o p a c i t y   =   1 6 0   +   r a n d ( 9 6 ) 
 
         e l s i f   @ t y p e   = =   : r a i n 2 
 
             s p r i t e . x   =   r a n d ( G r a p h i c s . w i d t h   +   1 0 0 )   -   4 0 0   +   @ o x 
 
             s p r i t e . y   =   r a n d ( G r a p h i c s . h e i g h t   +   2 0 0 )   -   5 0 0   +   @ o y 
 
             s p r i t e . o p a c i t y   =   2 0   +   r a n d ( 9 6 ) 
 
         e l s e 
 
             s p r i t e . x   =   r a n d ( G r a p h i c s . w i d t h   +   1 0 0 )   -   1 0 0   +   @ o x 
 
             s p r i t e . y   =   r a n d ( G r a p h i c s . h e i g h t   +   2 0 0 )   -   2 0 0   +   @ o y     
 
             s p r i t e . o p a c i t y   =   1 6 0   +   r a n d ( 9 6 ) 
 
         e n d 
 
     e n d 
 
 e n d 